home *** CD-ROM | disk | FTP | other *** search
/ Oh!X 2001 Spring / Oh!X 2001 Spring Special CD-ROM (Japan).7z / Oh!X 2001 Spring Special CD-ROM (Japan) (Track 1).bin / FBENC / TEC-FB^3.sea / TEC-FB^3 / TEC1.MAIN < prev    next >
Text File  |  2000-07-05  |  717b  |  35 lines
  1. /*
  2. Text Encoding Converter Example #1
  3. Takaaki Mizuno(takaaki@cds.ne.jp)
  4. 2000.7.5
  5. */
  6.  
  7.  
  8. DIM xErr AS OSStatus
  9. DIM inputEncoding AS TextEncoding
  10. DIM outputEncoding AS TextEncoding
  11. DIM converter AS TECObjectRef
  12. DIM inputact AS ByteCount
  13. DIM outputact AS ByteCount
  14. DIM a$, b$
  15. DIM d AS BYTE
  16.  
  17. END GLOBALS
  18.  
  19. WINDOW #1,"test"
  20.  
  21. a$ = "テスト文字列"
  22.  
  23. xErr = FN TECGetTextEncodingFromInternetName(@inputEncoding,"Shift_JIS")
  24. xErr = FN TECGetTextEncodingFromInternetName(@outputEncoding,"UTF-8")
  25. xErr = FN TECCreateConverter (@converter, inputEncoding, outputEncoding)
  26. xErr = FN TECConvertText (converter, @a$+1, |@a$|, @inputact,@b$+1,255, @outputact)
  27. xErr = FN TECDisposeConverter(converter)
  28.  
  29. d = outputact
  30. | @b$,d
  31. PRINT b$
  32. STOP
  33.  
  34.  
  35.